Interactive Quarterly/The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso/pc/store.dir/00168_Print Button.ls

Text File | 1996-09-26 | 2.3 KB | 50 lines

on mouseUp
  global orders, payment, cardnumber, expires, birthday
  cursor(4)
  set doc to new(xtra("printomatic_lite"))
  if not objectp(doc) then
    exit
  end if
  if the hilite of member "Check" = 1 then
    set payment to "Check"
    set cardnumber to " "
    set expires to " "
  else
    if the hilite of member "MC" then
      set payment to "MasterCard"
      set cardnumber to the text of member "Card Number"
      set expires to the text of member "Expires"
    else
      if the hilite of member "Visa" then
        set payment to "Visa"
        set cardnumber to the text of member "Card Number"
        set expires to the text of member "Expires"
      else
        if the hilite of member "Discover" then
          set payment to "Discover"
          set cardnumber to the text of member "Card Number"
          set expires to the text of member "Expires"
        end if
      end if
    end if
  end if
  set birthday to the text of member "Birthday"
  set lineCount to count(orders)
  set tmpnum to the number of member "Order Field"
  set CDROMlist to "QUANTITY ___ TITLE ___ PRICE" & RETURN
  repeat with i = 1 to lineCount
    set tmpfield to getAt(orders, i)
    set tmpnum to tmpnum + 1
    set tmpcast to the name of member tmpnum
    set foo to CDROMlist & RETURN & tmpfield
    set CDROMlist to foo
    set tmpquant to tmpquant + getAt(quantlist, i)
    set tmptotal to tmptotal + getAt(totallist, i)
  end repeat
  set foo to RETURN & "TOTAL CD-ROMs: " & string(tmpquant) & ",   " & "TOTAL PRICE: $" & string(tmptotal) & ".00" & RETURN
  set CDROMlist to CDROMlist & RETURN & foo
  append(doc, RETURN & the text of member "Ordering Instructions" & RETURN & RETURN, CDROMlist & RETURN, "Name: ", the text of member "Name" & RETURN, "Address: ", the text of member "Address" & RETURN, "City: ", the text of member "City" & RETURN, "State: ", the text of member "State" & RETURN, "Zip: ", the text of member "Zip" & RETURN, "Country: ", the text of member "Country" & RETURN, "Phone: ", the text of member "Phone" & RETURN, "Fax: ", the text of member "Fax" & RETURN, "Email: ", the text of member "Email" & RETURN & RETURN, "Payment: ", payment & RETURN, "Card #: ", cardnumber & RETURN, "Expiration Date: ", expires & RETURN, "Date Of Birth: ", birthday & RETURN & RETURN, "Signature: _____________________________________")
  print(doc)
  cursor(-1)
end